BBS in a Box 15

home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Music / J-L / Loop Sequencer 1.0.sit / Source / BitsAndBytes.c < prev next >
MacBinary | 1994-06-10 | 2.5 KB | [TEXT/MMCC]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	Compact Compressed (Unix) `(archive/compact)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Fri Jun 10 00:21:14 1994, modified Fri Jun 10 00:21:14 1994, creator 'MMCC', type ASCII, 1981 bytes "BitsAndBytes.c" , at 0x83d 382 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[MMCC]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0e 42 69 74 73 41 6e | 64 42 79 74 65 73 2e 63 |..BitsAn|dBytes.c|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 4d 43 | 43 01 00 00 00 00 00 00 |.TEXTMMC|C.......|
|00000050| 00 00 00 00 00 07 bd 00 | 00 01 7e aa 1d 9a ba aa |........|..~.....|
|00000060| 1d 9a ba 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 0e e1 00 00 |........|........|
|00000080| 2f 2a 0d 09 46 49 4c 45 | 3a 20 42 69 74 73 41 6e |/*..FILE|: BitsAn|
|00000090| 64 42 79 74 65 73 2e 63 | 0d 09 43 52 45 41 54 45 |dBytes.c|..CREATE|
|000000a0| 44 3a 20 4d 61 79 20 33 | 30 2c 20 31 39 39 34 0d |D: May 3|0, 1994.|
|000000b0| 09 42 59 3a 20 48 69 65 | 70 20 44 61 6d 0d 2a 2f |.BY: Hie|p Dam.*/|
|000000c0| 0d 0d 23 69 6e 63 6c 75 | 64 65 20 22 41 73 6d 43 |..#inclu|de "AsmC|
|000000d0| 6f 6d 6d 6f 6e 48 65 61 | 64 65 72 2e 68 22 0d 23 |ommonHea|der.h".#|
|000000e0| 69 6e 63 6c 75 64 65 20 | 22 42 69 74 73 41 6e 64 |include |"BitsAnd|
|000000f0| 42 79 74 65 73 2e 68 22 | 0d 0d 2f 2a 0d 09 54 68 |Bytes.h"|../*..Th|
|00000100| 69 73 20 61 73 73 65 6d | 62 6c 79 20 66 75 6e 63 |is assem|bly func|
|00000110| 74 69 6f 6e 20 77 69 6c | 6c 20 68 61 76 65 20 74 |tion wil|l have t|
|00000120| 6f 20 62 65 20 72 65 2d | 77 72 69 74 74 65 6e 20 |o be re-|written |
|00000130| 66 6f 72 20 70 6f 77 65 | 72 70 63 2e 20 49 6e 20 |for powe|rpc. In |
|00000140| 74 68 65 20 6d 65 61 6e | 74 69 6d 65 2c 0d 09 69 |the mean|time,..i|
|00000150| 74 20 77 6f 72 6b 73 2e | 20 4e 6f 74 65 20 68 6f |t works.| Note ho|
|00000160| 77 65 76 65 72 20 74 68 | 61 74 20 49 27 6d 20 6e |wever th|at I'm n|
|00000170| 6f 74 20 61 6e 20 61 73 | 73 65 6d 62 6c 79 20 70 |ot an as|sembly p|
|00000180| 72 6f 67 72 61 6d 6d 65 | 72 20 69 6e 20 61 6e 79 |rogramme|r in any|
|00000190| 20 77 61 79 2c 20 73 6f | 0d 09 79 6f 75 20 6d 61 | way, so|..you ma|
|000001a0| 79 20 66 69 6e 64 20 74 | 68 65 20 66 75 6e 63 74 |y find t|he funct|
|000001b0| 69 6f 6e 20 65 78 74 72 | 61 6e 65 6f 75 73 20 28 |ion extr|aneous (|
|000001c0| 62 75 74 20 74 68 65 6e | 20 61 67 61 69 6e 2c 20 |but then| again, |
|000001d0| 69 74 20 77 6f 72 6b 73 | 21 29 2e 0d 0d 09 54 68 |it works|!)....Th|
|000001e0| 65 20 6d 79 72 69 61 64 | 20 6f 66 20 23 64 65 66 |e myriad| of #def|
|000001f0| 69 6e 65 73 20 61 6e 64 | 20 23 69 66 73 20 79 6f |ines and| #ifs yo|
|00000200| 75 20 73 65 65 20 61 72 | 65 20 64 75 65 20 74 6f |u see ar|e due to|
|00000210| 20 63 6f 64 69 6e 67 20 | 6f 6e 20 62 6f 74 68 20 | coding |on both |
|00000220| 53 79 6d 61 6e 74 65 63 | 20 61 6e 64 0d 09 4d 65 |Symantec| and..Me|
|00000230| 74 72 6f 57 65 72 6b 73 | 20 70 6c 61 74 66 6f 72 |troWerks| platfor|
|00000240| 6d 73 2e 0d 0d 09 46 75 | 6e 63 74 69 6f 6e 20 73 |ms....Fu|nction s|
|00000250| 74 72 61 74 65 67 79 3a | 0d 09 09 43 6f 64 65 57 |trategy:|...CodeW|
|00000260| 61 72 72 69 6f 72 3a 20 | 61 6c 6c 6f 63 61 74 65 |arrior: |allocate|
|00000270| 20 61 70 70 72 6f 70 72 | 69 61 74 65 20 73 74 75 | appropr|iate stu|
|00000280| 66 66 20 76 69 61 20 66 | 72 61 6c 6c 6f 63 2b 2c |ff via f|ralloc+,|
|00000290| 20 61 6c 6c 6f 63 61 74 | 65 20 73 70 61 63 65 0d | allocat|e space.|
|000002a0| 09 09 09 09 09 20 6f 6e | 20 73 74 61 63 6b 2c 20 |..... on| stack, |
|000002b0| 64 6f 20 6f 75 72 20 72 | 6f 74 61 74 69 6e 67 2c |do our r|otating,|
|000002c0| 20 6d 6f 76 65 20 74 68 | 65 20 72 65 73 75 6c 74 | move th|e result|
|000002d0| 20 6f 6e 74 6f 20 73 74 | 61 63 6b 0d 09 09 09 09 | onto st|ack.....|
|000002e0| 09 20 64 69 72 65 63 74 | 6c 79 20 61 6e 64 20 65 |. direct|ly and e|
|000002f0| 78 69 74 2e 0d 09 09 53 | 79 6d 61 6e 74 65 63 3a |xit....S|ymantec:|
|00000300| 09 20 61 6c 6c 6f 63 61 | 74 65 20 22 72 65 74 75 |. alloca|te "retu|
|00000310| 72 6e 56 61 6c 22 2c 20 | 64 6f 20 6f 75 72 20 72 |rnVal", |do our r|
|00000320| 6f 74 61 74 69 6e 67 2c | 20 6d 6f 76 65 20 72 65 |otating,| move re|
|00000330| 73 75 6c 74 0d 09 09 09 | 09 09 20 69 6e 74 6f 20 |sult....|.. into |
|00000340| 72 65 74 75 72 6e 56 61 | 6c 2c 20 65 78 69 74 20 |returnVa|l, exit |
|00000350| 61 73 6d 20 61 6e 64 20 | 72 65 74 75 72 6e 20 72 |asm and |return r|
|00000360| 65 74 75 72 6e 56 61 6c | 2e 0d 2a 2f 0d 0d 41 53 |eturnVal|..*/..AS|
|00000370| 4d 5f 46 55 4e 43 20 6c | 6f 6e 67 20 42 69 74 73 |M_FUNC l|ong Bits|
|00000380| 52 6f 74 61 74 65 4c 65 | 66 74 28 6c 6f 6e 67 20 |RotateLe|ft(long |
|00000390| 74 68 65 42 69 74 73 2c | 20 73 68 6f 72 74 20 68 |theBits,| short h|
|000003a0| 6f 77 4d 75 63 68 29 20 | 7b 0d 23 69 66 20 5f 5f |owMuch) |{.#if __|
|000003b0| 4d 57 45 52 4b 53 5f 5f | 0d 09 66 72 61 6c 6c 6f |MWERKS__|..frallo|
|000003c0| 63 20 2b 09 09 09 09 3b | 20 2f 2f 20 43 57 2d 63 |c +....;| // CW-c|
|000003d0| 6f 6d 70 69 6c 65 72 20 | 73 70 65 63 69 66 69 63 |ompiler |specific|
|000003e0| 0d 0d 09 43 4c 52 2e 4c | 20 2d 28 73 70 29 09 09 |...CLR.L| -(sp)..|
|000003f0| 09 09 3b 20 2f 2f 20 41 | 6c 6c 6f 63 61 74 65 20 |..; // A|llocate |
|00000400| 73 74 6f 72 61 67 65 20 | 66 6f 72 20 72 65 74 75 |storage |for retu|
|00000410| 72 6e 20 76 61 6c 75 65 | 0d 09 4d 4f 56 45 2e 4c |rn value|..MOVE.L|
|00000420| 20 74 68 65 42 69 74 73 | 2c 44 30 09 09 3b 20 2f | theBits|,D0..; /|
|00000430| 2f 20 43 6f 70 79 20 74 | 68 65 42 69 74 73 20 70 |/ Copy t|heBits p|
|00000440| 61 72 61 6d 65 74 65 72 | 20 69 6e 74 6f 20 72 65 |arameter| into re|
|00000450| 67 69 73 74 65 72 20 44 | 30 0d 09 43 4c 52 2e 4c |gister D|0..CLR.L|
|00000460| 20 44 31 09 09 09 09 3b | 20 2f 2f 20 43 6c 65 61 | D1....;| // Clea|
|00000470| 72 20 6f 75 74 20 64 65 | 73 74 69 6e 61 74 69 6f |r out de|stinatio|
|00000480| 6e 20 72 65 67 69 73 74 | 65 72 20 44 31 20 28 6e |n regist|er D1 (n|
|00000490| 65 63 65 73 73 61 72 79 | 3f 29 0d 09 4d 4f 56 45 |ecessary|?)..MOVE|
|000004a0| 2e 57 20 68 6f 77 4d 75 | 63 68 2c 44 31 09 09 3b |.W howMu|ch,D1..;|
|000004b0| 20 2f 2f 20 43 6f 70 79 | 20 68 6f 77 4d 75 63 68 | // Copy| howMuch|
|000004c0| 20 70 61 72 61 6d 65 74 | 65 72 20 69 6e 74 6f 20 | paramet|er into |
|000004d0| 72 65 67 69 73 74 65 72 | 20 44 31 20 28 77 6f 72 |register| D1 (wor|
|000004e0| 64 20 3d 3d 20 73 68 6f | 72 74 29 0d 09 52 4f 4c |d == sho|rt)..ROL|
|000004f0| 2e 4c 20 44 31 2c 44 30 | 09 09 09 09 3b 20 2f 2f |.L D1,D0|....; //|
|00000500| 20 52 6f 74 61 74 65 20 | 6c 65 66 74 2c 20 64 75 | Rotate |left, du|
|00000510| 64 65 21 0d 09 4d 4f 56 | 45 2e 4c 20 44 30 2c 28 |de!..MOV|E.L D0,(|
|00000520| 73 70 29 09 09 09 3b 20 | 2f 2f 20 50 75 74 20 72 |sp)...; |// Put r|
|00000530| 65 74 75 72 6e 20 76 61 | 6c 75 65 20 6f 6e 20 73 |eturn va|lue on s|
|00000540| 74 61 63 6b 20 28 74 68 | 65 20 72 65 73 75 6c 74 |tack (th|e result|
|00000550| 29 0d 0d 09 66 72 66 72 | 65 65 09 09 09 09 09 3b |)...frfr|ee.....;|
|00000560| 20 2f 2f 20 44 65 2d 61 | 6c 6c 6f 63 61 74 65 20 | // De-a|llocate |
|00000570| 6d 65 6d 6f 72 79 2c 20 | 72 65 73 74 6f 72 65 20 |memory, |restore |
|00000580| 72 65 67 69 73 74 65 72 | 73 0d 09 72 74 73 0d 23 |register|s..rts.#|
|00000590| 65 6c 73 65 0d 09 6c 6f | 6e 67 20 72 65 74 75 72 |else..lo|ng retur|
|000005a0| 6e 56 61 6c 3b 0d 0d 09 | 41 53 4d 5f 42 45 47 49 |nVal;...|ASM_BEGI|
|000005b0| 4e 0d 0d 09 4d 4f 56 45 | 2e 4c 20 74 68 65 42 69 |N...MOVE|.L theBi|
|000005c0| 74 73 2c 44 30 09 09 3b | 20 2f 2f 20 43 6f 70 79 |ts,D0..;| // Copy|
|000005d0| 20 74 68 65 42 69 74 73 | 20 70 61 72 61 6d 65 74 | theBits| paramet|
|000005e0| 65 72 20 69 6e 74 6f 20 | 72 65 67 69 73 74 65 72 |er into |register|
|000005f0| 20 44 30 0d 09 43 4c 52 | 2e 4c 20 44 31 09 09 09 | D0..CLR|.L D1...|
|00000600| 09 3b 20 2f 2f 20 43 6c | 65 61 72 20 6f 75 74 20 |.; // Cl|ear out |
|00000610| 64 65 73 74 69 6e 61 74 | 69 6f 6e 20 72 65 67 69 |destinat|ion regi|
|00000620| 73 74 65 72 20 44 31 20 | 28 6e 65 63 65 73 73 61 |ster D1 |(necessa|
|00000630| 72 79 3f 29 0d 09 4d 4f | 56 45 2e 57 20 68 6f 77 |ry?)..MO|VE.W how|
|00000640| 4d 75 63 68 2c 44 31 09 | 09 3b 20 2f 2f 20 43 6f |Much,D1.|.; // Co|
|00000650| 70 79 20 68 6f 77 4d 75 | 63 68 20 70 61 72 61 6d |py howMu|ch param|
|00000660| 65 74 65 72 20 69 6e 74 | 6f 20 72 65 67 69 73 74 |eter int|o regist|
|00000670| 65 72 20 44 31 20 28 77 | 6f 72 64 20 3d 3d 20 73 |er D1 (w|ord == s|
|00000680| 68 6f 72 74 29 0d 09 52 | 4f 4c 2e 4c 20 44 31 2c |hort)..R|OL.L D1,|
|00000690| 44 30 09 09 09 09 3b 20 | 2f 2f 20 52 6f 74 61 74 |D0....; |// Rotat|
|000006a0| 65 20 6c 65 66 74 2c 20 | 64 75 64 65 21 0d 0d 09 |e left, |dude!...|
|000006b0| 4d 4f 56 45 2e 4c 20 44 | 30 2c 72 65 74 75 72 6e |MOVE.L D|0,return|
|000006c0| 56 61 6c 0d 0d 09 41 53 | 4d 5f 45 4e 44 0d 0d 09 |Val...AS|M_END...|
|000006d0| 72 65 74 75 72 6e 28 72 | 65 74 75 72 6e 56 61 6c |return(r|eturnVal|
|000006e0| 29 3b 0d 23 65 6e 64 69 | 66 0d 7d 20 2f 2f 20 45 |);.#endi|f.} // E|
|000006f0| 4e 44 20 42 69 74 73 52 | 6f 74 61 74 65 4c 65 66 |ND BitsR|otateLef|
|00000700| 74 0d 0d 2f 2a 0d 09 42 | 69 74 73 52 6f 74 61 74 |t../*..B|itsRotat|
|00000710| 65 4c 65 66 74 2c 20 77 | 69 74 68 6f 75 74 20 61 |eLeft, w|ithout a|
|00000720| 6c 6c 20 74 68 65 20 70 | 72 65 70 72 6f 63 65 73 |ll the p|reproces|
|00000730| 73 6f 72 20 73 74 75 66 | 66 2c 20 61 73 20 63 6f |sor stuf|f, as co|
|00000740| 6d 70 61 74 69 62 6c 65 | 20 77 69 74 68 20 54 68 |mpatible| with Th|
|00000750| 69 6e 6b 20 43 20 36 2e | 30 2e 2e 2e 0d 0d 09 6c |ink C 6.|0......l|
|00000760| 6f 6e 67 20 42 69 74 73 | 52 6f 74 61 74 65 4c 65 |ong Bits|RotateLe|
|00000770| 66 74 28 6c 6f 6e 67 20 | 74 68 65 42 69 74 73 2c |ft(long |theBits,|
|00000780| 20 73 68 6f 72 74 20 68 | 6f 77 4d 75 63 68 29 20 | short h|owMuch) |
|00000790| 7b 0d 09 09 6c 6f 6e 67 | 20 72 65 74 75 72 6e 56 |{...long| returnV|
|000007a0| 61 6c 3b 0d 09 09 61 73 | 6d 7b 0d 09 09 09 4d 4f |al;...as|m{....MO|
|000007b0| 56 45 2e 4c 20 74 68 65 | 42 69 74 73 2c 44 30 0d |VE.L the|Bits,D0.|
|000007c0| 09 09 09 43 4c 52 2e 4c | 20 44 31 0d 09 09 09 4d |...CLR.L| D1....M|
|000007d0| 4f 56 45 2e 57 20 68 6f | 77 4d 75 63 68 2c 44 31 |OVE.W ho|wMuch,D1|
|000007e0| 0d 09 09 09 52 4f 4c 2e | 4c 20 44 31 2c 44 30 0d |....ROL.|L D1,D0.|
|000007f0| 09 09 09 4d 4f 56 45 2e | 4c 20 44 30 2c 72 65 74 |...MOVE.|L D0,ret|
|00000800| 75 72 6e 56 61 6c 0d 09 | 09 7d 0d 09 09 72 65 74 |urnVal..|.}...ret|
|00000810| 75 72 6e 28 72 65 74 75 | 72 6e 56 61 6c 29 3b 0d |urn(retu|rnVal);.|
|00000820| 09 7d 0d 0d 2a 2f 0d 0d | 2f 2f 20 45 4e 44 20 42 |.}..*/..|// END B|
|00000830| 69 74 73 41 6e 64 42 79 | 74 65 73 2e 63 00 00 00 |itsAndBy|tes.c...|
|00000840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000880| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00000890| 00 00 10 27 0a 46 6c 61 | 67 43 44 45 46 2e 68 00 |...'.Fla|gCDEF.h.|
|000008a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008b0| 0e 42 69 74 73 41 6e 64 | 42 79 74 65 73 2e 63 64 |.BitsAnd|Bytes.cd|
|000008c0| 02 00 00 00 54 45 58 54 | 4d 4d 43 43 01 00 ff ff |....TEXT|MMCC....|
|000008d0| 00 00 54 45 58 54 4d 4d | 43 43 01 00 ff ff ff ff |..TEXTMM|CC......|
|000008e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008f0| 00 bc aa 10 3b 17 00 00 | 07 bd 00 00 01 7e 00 00 |....;...|.....~..|
|00000900| 00 00 00 00 00 00 00 00 | 00 00 04 b6 25 00 00 00 |........|....%...|
|00000910| 10 3a 0e 53 69 67 6e 61 | 74 75 72 65 51 75 6f 74 |.:.Signa|tureQuot|
|00000920| 65 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |e.......|........|
|00000930| 00 00 00 00 04 b8 25 00 | 00 00 10 3d 1a 20 53 70 |......%.|...=. Sp|
|00000940| 72 69 74 65 57 6f 72 6c | 64 20 52 65 6c 65 61 73 |riteWorl|d Releas|
|00000950| 65 20 4e 6f 74 65 73 00 | 00 00 00 00 00 00 04 ca |e Notes.|........|
|00000960| 25 00 00 00 10 3d 09 4c | 69 62 72 61 72 69 65 73 |%....=.L|ibraries|
|00000970| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000980| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00000990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000009a0| 00 00 00 00 00 00 00 03 | 00 04 00 57 00 04 01 dc |........|...W....|
|000009b0| 02 7c 00 57 00 04 01 dc | 02 7c aa a3 71 1a 00 00 |.|.W....|.|..q...|
|000009c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 01 00 |........|........|
|000009d0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 66 24 28 |...L...L|...2.f$(|
|000009e0| 16 0a 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|000009f0| 00 0a 03 ed ff ff 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+